VERSION 5.00 Begin VB.Form frmSplash BackColor = &H00FFFFFF& BorderStyle = 3 'Fixed Dialog ClientHeight = 3945 ClientLeft = 255 ClientTop = 1410 ClientWidth = 6135 ClipControls = 0 'False ControlBox = 0 'False Icon = "frmSplash.frx":0000 KeyPreview = -1 'True LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3945 ScaleWidth = 6135 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.Timer Timer1 Interval = 3500 Left = 360 Top = 240 End Begin VB.Frame Frame1 BackColor = &H00FFFFFF& Height = 3555 Left = 120 TabIndex = 0 Top = 120 Width = 5865 Begin VB.Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "This program is sharware" Height = 195 Left = 120 TabIndex = 2 Top = 2160 Width = 1755 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = $"frmSplash.frx":000C Height = 975 Left = 120 TabIndex = 1 Top = 2520 Width = 5535 End Begin VB.Image imgLogo Height = 1815 Left = 1560 Picture = "frmSplash.frx":0132 Top = 360 Width = 2685 End End Begin VB.Label Label3 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Ver 1.00" Height = 195 Left = 5400 TabIndex = 3 Top = 3720 Width = 600 End Attribute VB_Name = "frmSplash" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Timer1_Timer() frmMain.Show Unload Me End Sub